Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Операції над множинами.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Група:
ПІ

Частина тексту файла

Міністерство освіти і науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота № 2 з курсу «Дискретна математика» Тема: " Операції над множинами.” Виконав: ст. гр. ПІ Львів-2007 Завдання: Знайти у масиві A задане число. Здійснити перетворення над масивами: (A∩B)\(AUB) Записати декартовий добуток AxC Текст програми program mnog; uses crt; var i,j,k,x,h,n:integer; flag:boolean; a:array[1..5] of integer; b:array[1..3] of integer; c:array[1..7] of integer; d:array[1..3] of integer; {AnB} e:array[1..11] of integer;{AUB} f:array[1..10] of integer; {D\E} begin clrscr; for i:=1 to 5 do begin writeln('vvedit a[',i,']'); readln(a[i]) end; for i:=1 to 3 do begin writeln('vvedit b[',i,']'); readln(b[i]) end; for i:=1 to 7 do begin writeln('vvedit c[',i,']'); readln(c[i]) end; writeln('‚vvedit chislo'); readln(n); for i:= 1 to 5 do if a[i]=n then flag:=true; if flag then writeln ('chislo ',n,' nalegit mnogyni') else writeln ('зЁб«® ',n,' ­ne nalegit mnogyni'); for i:=1 to 5 do for j:=1 to 3 do if a[i]=b[j] then d[j]:=b[j]; for i:=1 to 5 do e[i]:=a[i]; for j:=1 to 3 do e[i+j]:=b[j]; for i:=1 to 9 do for j:=i+1 to 10 do if e[i]=e[j] then e[j]:=0; flag:=false; for i:= 1to 3 do begin for j:=1to 10 do if d[i]=e[j] then flag:=true; if flag=false then f[i]:=d[i]; flag:=false; end; if f[1]=f[2] then begin f[2]:=f[3];f[3]:=0;end else if f[2]=f[3] then begin f[2]:=f[3];f[3]:=0;end; for i:=1 to 3 do write(f[i],' '); writeln('Pru decartowomy mnozhenni A na C otrumaemo : '); for i:=1 to 5 do for j:=1 to 7 do writeln('(',a[i],',',c[j],')'); end. Висновок: На цій роботі я перевірив свої вміння роботи з множинами в середовищі Turbo Pascal.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини